home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / testfiles / TestMousePort < prev    next >
Encoding:
Text File  |  2000-05-21  |  1.1 KB  |  52 lines
  1. mp <- Mouse new
  2. n  <- 0
  3.  
  4. mp openMousePort: 1 named: 'Mouse1'
  5.  
  6. mp clearMousePortBuffer
  7. mp setTimeTransition:   600 " 60Hz * 10 sec    "
  8. mp setKeyTransition:    3   "Up & down presses"
  9. mp setXDeltaTransition: 1
  10. mp setYDeltaTransition: 1
  11.  
  12. n <- mp getTriggerTime
  13. ('getTriggerTime = ', n) print
  14.  
  15. n <- mp getTriggerKeys
  16. ('Trigger Keys   = ', n) print
  17.  
  18. n <- mp getTriggerXDelta
  19. ('TriggerDeltaX  = ', n) print
  20.  
  21. n <- mp getTriggerYDelta
  22. ('TriggerDeltaY  = ', n) print
  23.  
  24. n <- mp getButtonCode
  25. ('Button Code    = ', n) print
  26.  
  27. n <- mp getQualifiers
  28. ('Qualifiers     = ', n) print
  29.  
  30. n <- mp getXPos
  31. ('X position     = ', n) print
  32.  
  33. n <- mp getYPos
  34. ('Y position     = ', n) print
  35.  
  36. 'Press the Left mouse button & move the mouse...' print
  37.  
  38. mp waitForQualifier: 16rC000 "wait for left mouse + relative mouse."
  39. mp waitForButton:    16r68   "wait for left mouse button."
  40.  
  41. 'You follow directions well!' print
  42.  
  43. "x & y positions are + & - values.  -x = left movement, -y = movement."
  44.  
  45. 'Waiting for the mouse to move...' print
  46.  
  47. mp waitForXPos: 5
  48. mp waitForYPos: 12
  49.  
  50. mp closeMousePort
  51. 'Mouse1 now closed!' print
  52.